home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pc_pad.arc / AFRICA.BAS (.txt) next >
Encoding:
GW-BASIC  |  1984-07-08  |  4.1 KB  |  128 lines
  1. 10  ' File: AFRICA.BAS
  2. 20  '
  3. 30  '      ** NATIONS AND CAPITALS OF AFRICA **
  4. 40  '
  5. 50  FOR N=1 TO VAL(RIGHT$(TIME$,2)):X=RND:NEXT N
  6. 60  M$="     NATIONS AND CAPITALS OF AFRICA"+CHR$(13)+STRING$(40,42)
  7. 70  SCREEN 0,0,0:COLOR 7,0,0:WIDTH 40:KEY OFF:CLS:PRINT M$
  8. 80  PRINT:PRINT "This tutorial, multiple-choice program"
  9. 90  PRINT"challenges you to learn and recall the
  10. 100  PRINT"capital cities of the nations of Africa.":PRINT
  11. 110  PRINT "The program continues repeating a ques-
  12. 120  PRINT"tion as long as you are making in-
  13. 130  PRINT"correct responses. Watch the selections
  14. 140  PRINT"change somewhat with each incorrect re-
  15. 150  PRINT "sponse, however -- the changes provide
  16. 160  PRINT"clues to the correct answer.
  17. 170  PRINT:PRINT "Note:  Where a nation has more than one
  18. 180  PRINT "capital, cite the legal or adminis-
  19. 190  LOCATE 24,1:PRINT "Strike any key to begin ...";
  20. 200  DEF SEG=0:POKE 1050,PEEK(1052)
  21. 210  K$=INKEY$:IF K$="" THEN 210
  22. 220  FOR N=1 TO VAL(RIGHT$(TIME$,2)):X=RND:NEXT N
  23. 230  CLS:PRINT M$
  24. 240  DIM I$(52,4)
  25. 250  FOR X=1 TO 52:READ N:FOR Y=1 TO 4:READ I$(X,Y):NEXT Y,X
  26. 260  X=INT(52*RND)+1
  27. 270  FOR N=1 TO 3:Q$(N)=I$(X,N+1):NEXT N
  28. 280  Q$(4)=I$(INT(52*RND)+1,INT(3*RND)+2)
  29. 290  FOR N=1 TO 3
  30. 300  IF Q$(4)=Q$(N) THEN 280
  31. 310  NEXT N
  32. 320  Q$(5)="None of the above"
  33. 330  CR=INT(4*RND)+1
  34. 340  FOR N=1 TO 4
  35. 350  C=0
  36. 360  R$(N)=Q$(INT(4*RND)+1)
  37. 370  C=C+1:IF C < 10 THEN 400
  38. 380  LOCATE 3,1:COLOR 23,0
  39. 390  PRINT "PLEASE WAIT ...":COLOR 7,0
  40. 400  IF N=1 THEN 440
  41. 410  FOR Y=1 TO N-1
  42. 420  IF R$(Y)=R$(N) THEN 360
  43. 430  NEXT Y
  44. 440  NEXT N
  45. 450  R$(5)=Q$(5)
  46. 460  CLS:PRINT M$
  47. 470  PRINT "Which of the following is the capital of"
  48. 480  PRINT I$(X,1)" (1-5)?"
  49. 490  PRINT 
  50. 500  FOR N=1 TO 5
  51. 510  PRINT TAB(5)N"- "R$(N)
  52. 520  NEXT N
  53. 530  PRINT
  54. 540  K$=INKEY$:IF K$="" THEN 540
  55. 550  IF K$<"1" OR K$>"5" THEN 540
  56. 560  PRINT K$
  57. 570  NT=NT+1
  58. 580  IF R$(VAL(K$))=I$(X,2) THEN 600
  59. 590  PRINT:PRINT "Sorry, that is not correct.":GOSUB 620:GOTO 270
  60. 600  PRINT:PRINT "That is correct."
  61. 610  NC=NC+1:GOSUB 620:GOTO 260
  62. 620  COLOR 0,7
  63. 630  LOCATE 17,1
  64. 640  SC=INT(100*NC/NT)
  65. 650  PRINT NC"correct out of"NT;SPC(32-POS(0))
  66. 660  PRINT
  67. 670  PRINT SPC(1)"for a score of"SC"%"SPC(32-POS(0))
  68. 680  COLOR 7,0
  69. 690  LOCATE 20,1
  70. 700  PRINT "Strike the SPACE BAR to continue (or ";
  71. 710  PRINT "the X key to end the quiz) ...";
  72. 720  K$=INKEY$:IF K$="" THEN 720
  73. 730  IF K$=CHR$(32) THEN RETURN 
  74. 740  IF K$="X" OR K$="x" THEN WIDTH 80:END
  75. 750  GOTO 720
  76. 760  DATA 1,Algeria,Algiers,Constantine,Annaba
  77. 770  DATA 2,Angola,Luanda,Huambo,Benguela
  78. 780  DATA 3,Benin,Porto-Novo,Cotonou,Save' 
  79. 790  DATA 4,Botswana,Gaborone,Serowe,Maun 
  80. 800  DATA 5,Burundi,Bujumbura,Gitega,Rutana
  81. 810  DATA 6,Cameroon,Yaounde,Douala,Yaounde
  82. 820  DATA 7,Cape Verde,Praia,Mindelo,Ribeira Grande
  83. 830  DATA 8,Central African Republic,Bangui,Carnot,Kaga Bandoro
  84. 840  DATA 9,Chad,N'Djamena,Mao,Lai'
  85. 850  DATA 10,Comoros,Moroni,Nzwani,Njazidja
  86. 860  DATA 11,Congo,Brazzaville,Pointe-Noire,Loubomo
  87. 870  DATA 12,Djibouti,Djibouti,Dikhil,Obock
  88. 880  DATA 13,Egypt,Cairo,Alexandria,Giza
  89. 890  DATA 14,Equatorial Guinea,Malabo,Bioko,Rio Muni
  90. 900  DATA 15,Ethiopia,Addis Ababa,Asmara,Harar
  91. 910  DATA 16,Gabon,Libreville,Booue,Franceville
  92. 920  DATA 17,The Gambia,Bathurst,Brikama,Basse
  93. 930  DATA 18,Ghana,Accra,Kumasi,Tamale
  94. 940  DATA 19,Guinea,Conakry,Labe,Kankan
  95. 950  DATA 20,Guinea-Bissau,Bissau,Buba,Cacheu
  96. 960  DATA 21,Ivory Coast,Abidjan,Odienne,Kongo
  97. 970  DATA 22,Kenya,Nairobi,Mombasa,Marsabit
  98. 980  DATA 23,Lesotho,Maseru,Leribe,Mohaleshoek
  99. 990  DATA 24,Liberia,Monrovia,Buchanan,Greenville
  100. 1000  DATA 25,Libya,Tripoli,Benghazi,El Gatrun
  101. 1010  DATA 26,Madagascar,Antananarivo,Faradofay,Mahajango
  102. 1020  DATA 27,Malawi,Lilongwe,Blantyre-Limbe,Mangoche
  103. 1030  DATA 28,Mali,Bamako,Kayes,Timbuktu
  104. 1040  DATA 29,Mauritania,Nouakchott,Nouadhibou,Kaedi
  105. 1050  DATA 30,Mauritius,Port Louis,Quatre Bornes,Curepipe
  106. 1060  DATA 31,Morocco,Rabat,Casablanca,Marrakech
  107. 1070  DATA 32,Mozambique,Maputo,Xai-Xai,Quelimane
  108. 1080  DATA 33,Niger,Niamey,Bilma,Zinder
  109. 1090  DATA 34,Nigeria,Lagos,Ibadan,Bauchi
  110. 1100  DATA 35,Rwanda,Kigali,Kisenyi,Butare
  111. 1110  DATA 36,Sao Tome and Principe,Sao Tome,Santo Antonio,Principe
  112. 1120  DATA 37,Senegal,Dakar,Thies,Kaolack
  113. 1130  DATA 38,Seychelles,Victoria,Cascade,Anse Boileau
  114. 1140  DATA 39,Sierra Leone,Freetown,Denema,Makeni
  115. 1150  DATA 40,Somalia,Mogadishu,Berbera,Obbia
  116. 1160  DATA 41,South Africa,Pretoria,Durban,Johannesburg
  117. 1170  DATA 42,Sudan,Khartoum,Omdurman,Port Sudan
  118. 1180  DATA 43,Swaziland,Mbabane,Bremersdorp,Stegi
  119. 1190  DATA 44,Tanzania,Dar-es-Salaam,Kasanga,Lushoto
  120. 1200  DATA 45,Togo,Lome,Lama=Kara,Palime
  121. 1210  DATA 46,Tunisia,Tunis,Sfax,Sousse
  122. 1220  DATA 47,Uganda,Kampala,Jinja,Ruwenzori
  123. 1230  DATA 48,United Arab Emirates,Abu Dhabi,Dubai,Buraimi
  124. 1240  DATA 49,Upper Volta,Ouagadougou,Bobo-Dioulasso,Kaya
  125. 1250  DATA 50,Zaire,Kinshasa,Kananga,Bosoko
  126. 1260  DATA 51,Zambia,Lusaka,Kitwe,Ndola
  127. 1270  DATA 52,Zimbabwe,Harare,Bulawayo,Shamva
  128.